home *** CD-ROM | disk | FTP | other *** search
/ Publication 3 / Publication_03_1996_High-Tech_de_Side_A.d64 / . publication! . (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  41 lines
  1. 1 rem" the publicationloader - completly lame
  2. 2 [143]"----------------------------------------
  3. 3 rem""(NULL)
  4. 10 ga=peek(186):sys57812("sprites*"),8,1:poke780,0:sys65493:print"[147]"chr$(14)
  5. 11 poke53281,15:poke53280,6:poke646,0:poke2040,228:poke2041,229:poke53265,11
  6. 12 poke2042,230:poke2043,231:poke53276,255:poke53248,80:poke53249,55
  7. 13 poke53287,12:poke53288,12:poke53289,12:poke53290,12:poke53285,1:poke53286,0
  8. 14 poke53250,128:poke53251,55:poke53252,176:poke53253,55:poke53254,224
  9. 15 poke53255,55:poke53269,255:poke53277,255
  10. 16 print""tab(6)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][149]"
  11. 17 printtab(8)"done by [129][200][149]i[150]g[151]h-[159][212][156]ech in '96"
  12. 18 printtab(6)"[144][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":poke53265,27
  13. 19 a$="[217]o ! [196]iz is the [200]igh-[212]ech-[205]emberstatus":py=6:gosub2000
  14. 20 print" [144][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":gosub3000
  15. 21 print" [208]hoenix"tab(18)"[204]ead,[195]ode,[211]wap":gosub3000
  16. 22 print" [202][193][203] [212] [210][201][208]"tab(18)"[195]o[204]ead,[195]over,[199][198][216],[211]wap":gosub3000
  17. 23 print" [199]host"tab(18)"[199]rafix":gosub3000
  18. 24 print" [210][193]!"tab(18)"[199]rafix":gosub3000
  19. 25 print" [199]unhed battalion [195]ode,[205]usix":gosub3000
  20. 26 print" [212][211][214]"tab(18)"[195]ode":gosub3000
  21. 27 print" [210]obin [200]ood"tab(18)"[205]ag-[197]ditor":gosub3000:print" [218]eitgeist";
  22. 28 printtab(18)"[195]ode,[205]ag-[197]ditor":gosub3000:print" [193][212][200]"tab(18)"[199]rafix":gosub3000
  23. 30 a$=" [215]atch out for all fuckin' lame stuff":py=19:gosub2000
  24. 31 a$="  of [200]igh-[212]ech,exspeccially the next":py=20:gosub2000:gosub3000
  25. 32 a$="        issue of [208][159][213][156][194][204][201][158][195][129][193][150][212][151][201][152][207][153][206] [144]!":py=21:gosub2000
  26. 33 a$="  [206]ow press da long one down under !":py=23:gosub2000
  27. 34 geta$:ifa$<>chr$(32)then34
  28. 35 print"[147]":poke53281,0:poke53280,0:poke53269,0
  29. 36 print"     [215]ait 10 years while loading..."
  30. 1001 print"[144]poke44,50:poke15360,0:end"
  31. 1002 print"load"chr$(34)"publication/main"chr$(34)","+str$(ga)+",1:"
  32. 1003 print"run[145][145][145][145][145][145][145][145][145][145][145][145][145][145]"
  33. 1005 poke198,0:fori=0to9:poke631+i,13:nexti:poke198,10
  34. 1006 stop
  35. 2000 f(1)=0:f(2)=6:f(3)=2:f(4)=5:f(5)=7:f(6)=1
  36. 2001 forg=1to6:poke211,1:poke214,py:sys58732:poke646,f(g):printa$:forq=1to75
  37. 2002 nextq,g
  38. 2003 forg=6to1step-1:poke211,1:poke214,py:sys58732:poke646,f(g):printa$
  39. 2004 forq=1to75:nextq,g:return
  40. 3000 forg=1to150:nextg:return
  41.